Option Explicit
Sub C_Sample052()
    Dim myWState As Long
    Dim myLeft   As Double
    Dim myTop    As Double
    With Application
        myWState = .WindowState
        .WindowState = xlNormal
        myLeft = .Left
        myTop = .Top
        .Left = 100						'wm
        .Top = 50
        If MsgBox("wgܧFExcelmC" _
        & vbCrLf & "n٭즨ӪpܡH" _
        , vbInformation + vbYesNo) = vbNo Then Exit Sub
        .Left = myLeft
        .Top = myTop
        .WindowState = myWState
    End With
End Sub

 